sink("MalePoet_Race_LA_TTest.txt")
t.test(WPM ~ Race.Ethnicity, data = poets)
t.test(dynamism ~ Race.Ethnicity, data = poets) 
t.test(speaking_rate ~ Race.Ethnicity, data = poets)
t.test(complexityAllPauses ~ Race.Ethnicity, data = poets)
t.test(complexitySyllables ~ Race.Ethnicity, data = poets)
t.test(complexityPhrases ~ Race.Ethnicity, data = poets)
t.test(pausecount ~ Race.Ethnicity, data = poets)
t.test(pauserate ~ Race.Ethnicity, data = poets)
t.test(pausemean100 ~ Race.Ethnicity, data = poets)
t.test(f0mean ~ Race.Ethnicity, data = poets)
t.test(f0range ~ Race.Ethnicity, data = poets)
t.test(f0speed ~ Race.Ethnicity, data = poets)
t.test(f0contour ~ Race.Ethnicity, data = poets)
sink()
